﻿Public Class FormCheckFinished
    Dim objProdInfo As New clsProdInfo
    Private Sub FormCheckFinished_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        setDgvData()
    End Sub

    Private Sub setDgvData()
        Dim dt15 As DataTable = objProdInfo.getProdInfoByStatus("15")
        dgv.AutoGenerateColumns = False
        dgv.DataSource = dt15
    End Sub
End Class